home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / UPCASE SMS / UPCASE.PAS < prev   
Pascal/Delphi Source File  |  2002-06-03  |  354b  |  21 lines
  1. var
  2.   F,O: Text;
  3.   Ch: Char;
  4. begin
  5.   Assign(F, ParamStr(1));
  6.   Assign(O, ParamStr(2));
  7.   Reset(F);
  8.   rewrite(O);
  9.   while not Eof(F) do
  10.   begin
  11.     Read(F, Ch);
  12.     IF ch=' ' then begin
  13.                       read(F,Ch);
  14.                       Ch:=upcase(Ch);
  15.                    end;
  16.     Write(O,Ch);
  17.   end;
  18.   close(f);
  19.   close(O);
  20. end.
  21.